home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 95
/
095.d81
/
darwin's bugs
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
28KB
|
20 lines
10 rem darwin's bugs -
20 rem simulated evolution
30 rem for the commodore 64
40 :
50 rem by ian adam (xxx-xxx-xxxx)
60 rem 4425 west 12th avenue
70 rem vancouver bc v6r 2r3
80 rem xxxxxxxx
90 :
100 poke 53280,0:poke 53281,0
110 poke 53271,0:poke 53277,0
120 poke 53275,0:poke 53276,0
130 poke 53287,1
140 for i=54272 to 54295:poke i,0:next
150 poke 54291,17:poke 54292,240
160 poke 54287,255:poke 54296,128
170 poke 54290,129
180 :
200 poke 44,64:run